10 REM *** BECKY SUE PARTON *** 20 REM *** AUGUST 29, 1986 *** 30 REM *** SPIN THAT WHEEL *** 40 REM *** THIS IS A GUESSING GAME LIKE THE T.V. SHOW 'WHEEL OF FORTUNE'. *** 100 REM *** TITLE BLOCK SECTION *** 110 A=RND(0):A=INT(RND(0)*15)+1 120 POKE 53280,A:POKE 53281,1:PRINT CHR$(142):PRINT CHR$(8) 130 PRINT"[144]" 140 PRINT"[147]" 150 PRINT" $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$" 160 PRINT" $ $" 170 PRINT" $ SSSSS PPPPP IIIII N N $" 180 PRINT" $ S P P I NN N $" 190 PRINT" $ SSSSS PPPP I N N N $" 200 PRINT" $ S P I N NN $" 210 PRINT" $ SSSSS P IIIII N N $" 220 PRINT" $ $" 230 PRINT" $ TTTTT H H AAAAA TTTTT $" 240 PRINT" $ T H H A A T $" 250 PRINT" $ T HHHHH AAAAA T $" 260 PRINT" $ T H H A A T $" 270 PRINT" $ T H H A A T $" 280 PRINT" $ $" 290 PRINT" $ W W W H H EEEEE EEEEE L $" 300 PRINT" $ W W W H H E E L $" 310 PRINT" $ W W W HHHHHH EEEEE EEEEE L $" 320 PRINT" $ W W W W H H E E L $" 330 PRINT" $ W W H H EEEEE EEEEE LLLLL$" 340 PRINT" $ $" 350 PRINT" $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$" 360 FOR I=1 TO 4000:NEXT I 500 REM *** INSTRUCTIONS *** 510 PRINT "[147]" 520 PRINT"DO YOU WANT INSTRUCTIONS ?" 530 GET B$:IF B$="" THEN 510 540 IF B$<>"Y" AND B$<>"N" THEN 530 550 IF B$="N" THEN GOTO 1500 560 PRINT CHR$(14):PRINT CHR$(8):PRINT"[147]" 570 PRINT" '[211][208][201][206][160][212][200][193][212][160][215][200][197][197][204]' [201][206][211][212][210][213][195][212][201][207][206][211][144]":PRINT 580 PRINT" [212]HE OBJECT OF THIS GAME IS TO EARN MONEY BY GUESSING THE LETTERS"; 590 PRINT" IN A WORD PUZZLE. [207]NLY THE PLAYER SOLVING THE PUZZLE WILL RETAIN "; 600 PRINT"THE MONEY AQUIRED DURING THAT PUZZLE.":PRINT 610 PRINT" [212]HE PUZZLES WILL CONSIST OF PHRASES, PERSONS, PLACES, EVENTS, T"; 620 PRINT"HINGS, TITLES,OR FICTIONAL CHARACTERS. [193] GAME WILL CONSIST OF THR"; 630 PRINT"EE PUZZLES, BUT THE PLAYERTHAT HAS AQUIRED THE MOST MONEY [160]WILL PLA"; 640 PRINT"Y A BONUS ROUND FOR A SPECIAL PRIZE.":PRINT 650 PRINT" [212]HE GAME IS STARTED BY ENTERING THE NUMBER OF PLAYERS (0 TO 4) "; 660 PRINT"AND THEN ENTERING THEIR NAMES IN THE DESIRED PLAYING ORDER. [212]HIS"; 670 PRINT" ORDER WILL ROTATE WITH EACH NEW PUZZLE.":PRINT:PRINT 680 PRINT" PRESS A KEY TO CONTINUE[146]" 690 GET C$:IF C$="" THEN 690 700 PRINT"[147]" 710 PRINT" [207]NLY THREE SELECTIONS ARE AVAILABLE:":PRINT 720 PRINT"1. [211][208][201][206][160][212][200][197][160][215][200][197][197][204] --- [197]NTER A [211][146] TO STARTTHE WHEEL, AND THEN PRESS"; 730 PRINT" ANY KEY TO STOP THE WHEEL.":PRINT 740 PRINT"2. [193][206][211][215][197][210][160][212][200][197][160][208][213][218][218][204][197] --- [197]NTER AN [193][146] AND THEN ENTER THE PUZZLE SOL"; 750 PRINT"UTION.":PRINT 760 PRINT"3. [194][213][217][160][193][160][214][207][215][197][204] --- [197]NTER A [194][146] AND THEN ENTER THE VOWEL. [206]OTE: [212]HE"; 770 PRINT" PLAYER MUST HAVE $250 IN HIS ACCOUNT BEFORE HE CAN BUY A VOWEL.":PRINT 780 PRINT" [201]F SPIN IS SELECTED, THE 'VALUE' OF YOUR SPIN WILL BE DISPLAYED AN"; 790 PRINT"D WILL DETERMINE YOUR NEXT STEP. [212]HE FOUR POSSIBILE 'VALUES' ARE:" 800 PRINT 810 PRINT"1. [194][193][206][203][210][213][208][212] --- [212]HE PLAYER LOSES ALL OF HIS MONEY EARNED FOR THE "; 820 PRINT"CURRENT PUZZLE AND IT IS THE NEXT PLAYERS TURN.":PRINT 830 PRINT" PRESS A KEY TO CONTINUE[146]"; 840 GET D$:IF D$="" THEN 840 850 PRINT"[147]" 860 PRINT"2. [204][207][207][211][197][160][193][160][212][213][210][206] --- [212]HE PLAYER RETAINS HIS MONEY, BUT IT IS THE NEXT"; 870 PRINT" PLAYERS TURN.":PRINT 880 PRINT"3. [198][210][197][197][160][211][208][201][206] --- [212]HE PLAYER IS CREDITED WITH A 'FREE SPIN' WHICH CAN"; 890 PRINT" BE USED ANYTIME HE HAS LOST HIS TURN. [212]HE 'FREE SPIN' CAN BE "; 900 PRINT"CARRIED OVER TO THE NEXT PUZZLE. [212]HE WHEEL WILL THEN SPIN AGAIN AND"; 910 PRINT" LAND ON ANOTHER 'VALUE'.":PRINT 920 PRINT"4. [193][160][196][207][204][204][207][210][160][214][193][204][213][197][160]($100 [212][207] $5000) --- [212]HE PLAYER MUST ENTER A "; 930 PRINT"CONSONANT AND EACH OCCURRANCE OF IT IN THE PUZZLE EARNS HIM THE "; 940 PRINT"INDICATED DOLLAR VALUE. [212]HE AVAILABLE LETTERS WILL BE DISPLAYED AND"; 950 PRINT" IF A LETTER IS REPEATED, THE PLAYER LOSES HIS TURN. [201]F THE LETTER"; 960 PRINT" IS NOT INTHE PUZZLE, IT WILL BE THE NEXT PLAYERS TURN. [193]FTER A "; 970 PRINT"CORRECT 'GUESS', THE PLAYER CAN MAKE ANOTHER SELECTION; SPIN, AN"; 980 PRINT"SWER, OR BUY A VOWEL.":PRINT 990 PRINT" PRESS A KEY TO CONTINUE[146]"; 1000 GET E$:IF E$="" THEN 1000 1010 PRINT"[147]" 1020 PRINT" [201]F ANSWER THE PUZZLE IS SELECTED, ENTERING THE CORRECT ANSWER "; 1030 PRINT"WILL EARN THAT PLAYER A WIN. [193] WRONG ANSWER WILL CAUSE A LOST TURN"; 1040 PRINT", AND IT WILL BE THE NEXT PLAYERS TURN.":PRINT:PRINT 1050 PRINT" [201]F BUY A VOWEL IS SELECTED, A CORRECTVOWEL ALLOWS THE PLAYER TO"; 1060 PRINT" MAKE ANOTHER SELECTION; SPIN, ANSWER, OR BUY A VOWEL. [200]OWEVER, A"; 1070 PRINT" WRONG CHOICE CAUSES ALOST TURN AND IT WILL BE THE NEXT PLAYERS TU"; 1080 PRINT"RN. [193] VOWEL SELECTION COSTS $250 WHETHER THERE IS ONE, SEVERAL, OR 1090 [153]"NO VOWELS IN THE PUZZLE.":[153]:[153] 1100 [153]" PRESS A KEY TO CONTINUEWAIT" 1110 [161] YI$:[139] YI$[178]"" [167] 1110 1120 [153]"LOAD" 1130 [153]" (null)HE PEEKONUS (null)OUND IS STARTED BY SELECTING A SPECIAL PRIZE. (null)HE "; 1140 [153]"PLAYER MUST THEN ENTER FIVE CONSONANTS AND ONE VOWEL. LEFT$E WILL THEN"; 1150 [153]" HAVE ONE MINUTE TO ENTER THE ANSWER. RIGHT$F A WRONG ANSWER IS GIVEN,"; 1160 [153]" ANOTHER ANSWER CAN BE ENTERED. ATNCORRECT ANSWER WITHIN ONE MINUTE"; 1170 [153]" WILL EARN THE PLAYER THE SELECTED PRIZE. RIGHT$F TOO MUCH TIME IS "; 1180 [153]"TAKEN OR IF THE ANSWER IS WRONG, THE PLAYER DOES NOT WIN THE PRIZE."; 1190 [153]" ATNN ENTRY MUST BE MADE TO TERMINATE THE TIMER AND THE GAME.":[153] 1200 [153]" LEFT$OPENATNCLR(null)VAL ASCSYS(null)FOR(null) VERIFY!DEF!STOP":[153]:[153] 1210 [153]:[153]:[153]" PRESS A KEY TO CONTINUEWAITSTOP" 1220 [161] UY$:[139] UY$[178]"" [167] 1220 1230 [153]"LOAD" 1500 [143] *** SETUP SECTION *** 1510 K[178]1 1520 [153] [199](142):[153] [199](8) 1530 [134] K$(26):[134] G$(40):[134] F$(300):[134] H$(300):[134] G(300) 1550 [153]"" 1560 [153]"LOAD" 1570 [153]"HOW MANY PLAYERS (1-4) ?" 1580 [161] B:[139] B[178]0 [167] 1560 1590 [139] B[177]4 [167] [153]"TOO MANY PLAYERS":[137] 1560 1600 [153]"" 1610 [129] I[178]1 [164] B 1620 [153]"PLAYERS #"I"'S NAME IS:"; 1630 [133] A$(I) 1640 [130] I 1650 [141] 4000 1660 [153]"LOAD" 2000 [143] *** LOAD PUZZLE DATA *** 2010 [129] I[178]1 [164] 117 2020 [135] F$(I),H$(I),G(I) 2030 [130] I 2500 [143] *** PLAY GAME *** 2510 [141] 4500 2520 [153]"LOAD" 2530 [153][163]12);"SPIN THAT WHEEL" 2540 [153] 2550 H[178][195](H$(C)):I[178]H[173]2:J[178]20[171]I 2560 [153] [163]J);H$(C) 2570 [153] 2580 [129] I[178]1 [164] [195](F$(C)) 2590 [139] G$(I)[178]" " [176] G$(I)[178]"-" [176] G$(I)[178]"'" [167] [153] G$(I);:[137] 2610 2600 [153]"(null)"; 2610 [130] I 2620 [153]:[153] 2630 [153]"PERSON UP = "A$(K)" " 2635 [153] 2640 [129] I[178]1 [164] B 2650 [139] I[178]K [167] [153]""; 2660 [153] A$(I);" $";L(I)"CMDWAIT " 2670 [130] I 2680 [153]"" 2690 [153]:[153]"LETTER'S NOT USED":[153]:[153]" "; 2700 [129] I[178]1 [164] 26 2710 [139] K$(I)[178]"*" [167] [153]" ";:[137] 2730 2720 [153] K$(I); 2730 [130] I 2740 [153]:[153]:[153] 2750 M$[178]"" 2760 [139] G(C)[178]0 [175] AA[178]0 [167] [141] 5500 2770 [139] G(C)[178]0 [175] AA[179][177]1 [167] [153]"ONON" 2780 [153]"STOPSWAITPIN THE WHEEL, STOPAWAITNSWER THE PUZZLE, OR STOPBWAITUY A VOWEL? 2790 PRINT" " 2800 PRINT:PRINT" [145][145]" 2810 PRINT"YOU WANT TO : " 2820 GET I$:IF I$<>"S" AND I$<>"A" AND I$<>"B" THEN 2820 2830 IF Q=1 AND I$<>"B" AND I$<>"A" THEN 2820 2840 IF I$<>"A" THEN GOTO 3130 2850 PRINT"[145][145][145][145]PLEASE TYPE IN WHAT YOU THINK THE PUZZLEIS ":PRINT 2860 INPUT" [157][157][157][157][157][157][157][157][157][157][157][157][157][157]";J$ 2870 IF J$=F$(C) THEN GOTO 2920 2880 PRINT"[145]I'M SORRY, THAT'S WRONG":FOR I=1 TO 1520:NEXT I 2890 IF T(K)<>0 THEN GOSUB 5000 2900 K=K+1:IF K=B+1 THEN K=1 2910 PRINT"":GOTO 2630 2920 PRINT"[147]" 2930 PRINT" $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$" 2940 PRINT"THAT'S RIGHT" 2950 PRINT" $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$" 2960 GOSUB 6500 2970 AA=0 2980 FOR I=1 TO 3000:NEXT I 2990 IF O+2=4 THEN GOTO 3020 3000 PRINT"[147]HERE IS PUZZLE #"O+2 3010 FOR I=1 TO 2000:NEXT I 3020 O=O+1 3030 IF L(K)<200 THEN L(K)=200 3040 P(K)=P(K)+L(K) 3050 FOR I=1 TO B 3060 L(I)=0 3070 NEXT I 3080 K=O+1:IF K>B THEN K=1 3090 IF O=3 THEN GOTO 7000 3100 GOSUB 4500 3110 GOSUB 4000 3120 GOTO 2520 3130 IF I$<>"B" THEN GOTO 3350 3140 IF L(K)<250 AND T(K)<>0 THEN GOSUB 5000 3150 IF L(K)<250 THEN PRINT"":GOTO 2630 3160 PRINT"[145]WHAT VOWEL DO YOU WANT TO BUY ?" 3170 GET L$:IF L$="" THEN 3170 3180 IF L$<>"A"ANDL$<>"E"ANDL$<>"I"ANDL$<>"O"ANDL$<>"U"THEN 3170 3190 FOR I=1 TO 26 3200 IF K$(I)=L$ THEN K$(I)="*":GOTO 3270 3210 NEXT I 3220 PRINT"[145]THAT'S BEEN USED ":FOR I=1 TO 1520:NEXT I 3230 L(K)=L(K)-250 3240 IF T(K)<>0 THEN GOSUB 5000 3250 K=K+1:IF K=B+1 THEN K=1 3260 PRINT"":GOTO 2630 3270 L(K)=L(K)-250:Z=0 3275 PRINT"" 3280 FOR I=1 TO LEN(F$(C)) 3290 IF L$=G$(I) THEN Z=Z+1:PRINT"[129]";:PRINTTAB(I-1);L$; 3300 NEXT I 3310 PRINT""; 3320 IFZ=0ANDT(K)<>0 THEN PRINT"":GOSUB 5000 3330 IF Z=0 THEN K=K++1:IF K=B+1 THEN K=1 3340 Z=0: PRINT"":GOTO 2630 3350 PRINT"[145][145][145][145]THE WHEEL IS SPINNING, PUSH A KEY TO STOP IT. " 3360 PRINT:PRINT" ":M$="":S=0:R=RND(0):R=INT(RND(1)*20)+1 3380 IF R=1 THEN M$="BANKRUPT" 3390 IF R=12 THEN M$="FREE SPIN" 3400 IF R=20 THEN M$="LOOSE-A-TURN" 3410 IF R=4 THEN S=5000 3420 IF R=5 THEN S=1000 3430 IF R=6 THEN S=750 3440 IF R=7 THEN S=700 3450 IF R=8 THEN S=600 3460 IF R=9 THEN S=500 3470 IF R=10 THEN S=250 3480 IF R=11 THEN S=400 3490 IF R=2 THEN S=350 3500 IF R=13 THEN S=300 3510 IF R=14 THEN S=100 3520 IF R=15 THEN S=150 3530 IF R=16 THEN S=800 3540 IF R=17 THEN S=900 3550 IF R=18 THEN S=950 3560 IF R=19 THEN S=3000 3570 IF R=3 THEN S=1500 3572 IF S=0 THEN PRINT M$" [145][145][145][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]" 3573 IF S<>0 THEN PRINT S"[157] [145][145][145][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]" 3575 GET N$:IF N$="" THEN 3360 3580 IF S<>0THENPRINT"[145][145]YOU LANDED ON"S"[157] ":GOTO3600 3590 PRINT"[145][145]YOU LANDED ON "M$" " 3600 FOR I= 1 TO 1000:NEXT I 3610 IF M$="BANKRUPT"ANDT(K)<>0 THEN GOSUB 5000 3620 IF M$="BANKRUPT" THEN L(K)=0:K=K+1:IF K=B+1 THEN K=1 3630 IF M$="BANKRUPT" THEN PRINT"":GOTO 2630 3640 IF M$="LOOSE-A-TURN" AND T(K)<>0 THEN GOSUB 5000 3650 IF M$="LOOSE-A-TURN" THEN K=K+1:IF K=B+1 THEN K=1 3660 IF M$="LOOSE-A-TURN" THEN PRINT"":GOTO 2630 3663 IFM$="FREE SPIN"THENT(K)=T(K)+1:PRINT"[145]OK[145]":FORI=1TO1500:NEXTI:PRINT"":GOTO3350 3665 PRINT"WHAT LETTER WOULD YOU LIKE" 3670 GET O$:IF O$="" THEN 3670 3680 IFO$="A"ORO$="E"ORO$="I"ORO$="O"ORO$="U"THEN3670 3690 FOR I=1 TO 26 3700 IF K$(I)=O$ THEN K$(I)="*":GOTO 3763 3710 NEXT I 3720 PRINT"[145]THAT'S BEEN USED ":FOR I=1 TO1750:NEXT I 3730 IF T(K)<>0 THEN GOSUB 5000 3740 K=K+1:IF K=B+1 THEN K=1 3750 PRINT"" 3760 GOTO 2630 3763 PRINT"" 3765 FOR I=1 TO LEN(F$(C)) 3767 IF O$=G$(I) THEN G(C)=G(C)-1:U=U+1:PRINT"[129]";:PRINTTAB(I-1);O$; 3768 NEXT I 3770 PRINT""; 3780 X=U*S 3790 L(K)=L(K)+X 3800 PRINT"[145][145][145][145][145]" 3810 IF U=0 AND T(K)<>0 THEN PRINT"":GOSUB 5000 3820 IF U=0 THEN K=K+1:IF K=B+1 THEN K=1 3830 U=0 3840 PRINT"":GOTO 2630 4000 REM *** FILL IN ALPHABET *** 4010 K$(1)="A" 4020 K$(2)="B" 4030 K$(3)="C" 4040 K$(4)="D" 4050 K$(5)="E" 4060 K$(6)="F" 4070 K$(7)="G" 4080 K$(8)="H" 4090 K$(9)="I" 4100 K$(10)="J" 4110 K$(11)="K" 4120 K$(12)="L" 4130 K$(13)="M" 4140 K$(14)="N" 4150 K$(15)="O" 4160 K$(16)="P" 4170 K$(17)="Q" 4180 K$(18)="R" 4190 K$(19)="S" 4200 K$(20)="T" 4210 K$(21)="U" 4220 K$(22)="V" 4230 K$(23)="W" 4240 K$(24)="X" 4250 K$(25)="Y" 4260 K$(26)="Z" 4270 RETURN 4500 REM *** RANDOM A PUZZLE *** 4510 C=RND(0):C=INT(RND(1)*117)+1 4520 IF C=D OR C=E OR C=F OR C=Y THEN 4510 4530 IF O+1=1 THEN D=C 4540 IF O+1=2 THEN E=C 4550 IF O+1=3 THEN F=C 4560 IF O+1=4 THEN Y=C 4570 Q=0 4580 FOR I=1 TO LEN(F$(C)) 4590 G$(I)=MID$(F$(C),I,1) 4600 NEXT I 4610 RETURN 5000 REM *** FREE SPIN *** 5010 PRINT"DO YOU WANT TO USE YOUR FREE SPIN" 5015 PRINT" [145][145][145][145][145]" 5020 GET P$:IF P$<>"Y" AND P$<>"N" THEN 5020 5030 IF P$="N" THEN RETURN 5040 IF M$="BANKRUPT" THEN L(K)=0 5050 T(K)=T(K)-1 5060 PRINT"" 5070 GOTO 2630 5500 REM *** VOWEL MUSIC *** 5510 FOR I=1 TO 10 5520 V=54296:F=54273 5530 POKE V,15:POKE 54276,33 5540 POKE F,10:POKE F,40:POKE F,70 5550 POKE V,0 5560 NEXT I 5570 PRINT"YOU HAVE ALL VOWELS LEFT[145]" 5573 PRINT 5575 PRINT" [145][145][145]" 5580 FOR I= 1 TO 2300:NEXT I 5590 Q=1:AA=1 5600 RETURN 6000 REM *** WINNING MUSIC *** 6010 S=54272:FOR SW=S TO S+24:POKE SW,0:NEXT 6020 POKE S+24,15 6030 POKE S+2,0 6040 POKE S+3,0 6050 POKE S+5,0 6060 POKE S+6,240 6070 DR=0:N1=0:N2=0 6080 AA=AA+1 6090 FOR I=1 TO 15 6100 DR=250 6110 READ N1,N2 6120 POKE S+1,N1:POKE S,N2 6130 POKE S+4,17 6140 FOR Z=1 TO DR/8:NEXT Z 6150 POKE S+4,16 6160 FOR T=1 TO 50:NEXT T 6170 IF I=18 THEN GH=1 6180 IF BC=1 THEN RETURN 6190 NEXT I 6200 RETURN 6500 REM *** GRAPHICS *** 6510 BB=0:BA=0:PRINT:PRINT""; 6520 BC=1:GOSUB 6000 6530 IF BB<>0 THEN GOSUB 6090 6540 IFBB=15THENPRINTTAB(5);" [205] [205] [205][205][205][206][206][206] [205][205][206][206] [206] [206] ":GOTO6560 6550 PRINT" [205] [205] [205][205][205][206][206][206] [205][205][206][206] [206] [206] " 6560 IFBB=15THENPRINTTAB(5);" [205] [205] [205] [205][205][206][206] [205][206] [206] [206] [206]": GOTO 6580 6570 PRINT" [205] [205] [205] [205][205][206][206] [205][206] [206] [206] [206] " 6580 IFBB=15THENPRINTTAB(5);" [205] [205] [205] [205][206] [206] [206] [206]":GOTO 6600 6590 PRINT" [205] [205] [205] [205][206] [206] [206] [206] " 6600 IFBB=15THENPRINTTAB(5);" [205] [205] [205] [205][205][206][206] [206] [206] [206] ":GOTO 6620 6610 PRINT" [205] [205] [205] [205][205][206][206] [206] [206] [206] " 6620 IFBB=15THENPRINTTAB(5);" [205] [205] [205] [206][205] [205][206] [206] [206] [206] ":GOTO 6640 6630 PRINT" [205] [205] [205] [206][205] [205][206] [206] [206] [206] " 6640 IFBB=15THENPRINTTAB(5);" [205] [205] [205] [206] [205] [206] [206] [206] ":GOTO 6660 6650 PRINT" [205] [205] [205] [206] [205] [206] [206] [206] " 6660 IFBB=15THENPRINTTAB(5);" [205] [205] [205][206] [205][206] [206] [206] ":GOTO 6680 6670 PRINT" [205] [205] [205][206] [205][206] [206] [206] " 6680 IFBB=15THENPRINTTAB(5);" [183][183][183][183][183][183][183][183][183][183][183][183][183][183] ": GOTO 6700 6690 PRINT" [183][183][183][183][183][183][183][183][183][183][183][183][183][183] " 6700 BB=BB+1 6710 IF BB=1 THEN PRINT"[144]"; 6720 IF BB=2 THEN PRINT"[159]"; 6730 IF BB=3 THEN PRINT"[156]"; 6740 IF BB=4 THEN PRINT""; 6750 IF BB=5 THEN PRINT""; 6760 IF BB=6 THEN PRINT"[158]"; 6770 IF BB=7 THEN PRINT"[129]"; 6780 IF BB=8 THEN PRINT"[149]"; 6790 IF BB=9 THEN PRINT"[150]"; 6800 IF BB=10 THEN PRINT"[151]"; 6810 IF BB=11 THEN PRINT"[152]"; 6820 IF BB=12 THEN PRINT"[153]"; 6830 IF BB=13 THEN PRINT"[154]"; 6840 IF BB=14 THEN PRINT"[155]"; 6850 REM FOR I=1 TO 5:NEXT I 6860 IF BA=7 THEN GOTO 6920 6870 IF BB=16 THEN BB=14:BA=BA+1:PRINT"[158]"; 6880 IF BB=15 THEN PRINT""; 6890 PRINT"[145][145][145][145][145][145][145][145][145]" 6910 GOTO 6530 6920 BA=0:BB=0:BC=0:PRINT"";:RETURN 7000 REM *** BONUS ROUND *** 7005 V=0 7010 FOR I=1 TO B 7020 IF P(I)>V THEN V=P(I):W=I 7030 NEXT I 7040 PRINT"[147]" 7050 PRINT"BONUS ROUND" 7060 PRINT"" 7070 PRINT""A$(W)"[146] GETS TO PLAY THE BONUS ROUND. THE TOTAL SCORES WERE:" 7080 FOR I=1 TO B 7090 PRINT A$(I),P(I) 7100 NEXT I 7110 FOR I=1 TO 6000:NEXT I:PRINT"[147]" 7120 AA$(1)="SPORTS CAR":AA$(2)="DIAMOND RING":AA$(3)="TRIP TO DISNEY WORLD" 7130 AA$(4)="GOLD WATCH":AA$(5)="MOTERCYCLE WITH SIDE CAR":AA$(6)="TRIP TO HAWII 7140 AA$(7)[178]"SEASON PASS TO SIX FLAGS":AA$(8)[178]"STATION WAGON" 7150 AA$(9)[178]"TRAVELING CAMPER":AA$(10)[178]"SAILBOAT" 7160 [153]"STOP"; 7170 AB(1)[178][181]([187](1)[172]10)[170]1 7180 AB(2)[178][181]([187](1)[172]10)[170]1 7190 [139] AB(2)[178]AB(1) [167] 7180 7200 AB(3)[178][181]([187](1)[172]10)[170]1 7210 [139] AB(3)[178]AB(2) [176] AB(3)[178]AB(1) [167] 7200 7220 [153]"LOAD" 7230 [153]"THESE ARE THE PRIZES YOU MAY PLAY FOR" 7240 [153]""; 7250 [139] AC[178]3 [167] [153]""; 7260 [153] AA$(AB(1)) 7270 [153]"STOP"; 7280 [139] AC[178]1 [167] [153]""; 7290 [153] AA$(AB(2)):[153]"STOP"; 7300 [139] AC[178]2 [167] [153]""; 7310 [153] AA$(AB(3)) 7320 [153]"STOP"; 7330 [153]"PLEASE PICK ONE (PRESS SPACE BAR TO SELECT, RETURN WHEN "; 7335 [153]"YOUR FINISHED) !!!" 7340 [161] AD$:[139] AD$[179][177]" "[175] AD$[179][177] [199](13) [167] 7340 7350 [139] AD$[178][199](13) [167] 7380 7360 AC[178]AC[170]1:[139] AC[178]4 [167] AC[178]1 7370 [153]"ONONONONONONONONON":[137] 7250 7380 [139] AC[178]0 [176] AC[170]1[178]4 [167] AE$[178]AA$(AB(1)) 7390 [139] AC[170]1[178]2 [167] AE$[178]AA$(AB(2)) 7400 [139] AC[170]1[178]3 [167] AE$[178]AA$(AB(3)) 7410 [153]"" 7420 [153]"LOAD" 7430 [153]"HERE IS THE PUZZLE "A$(W) 7440 [141] 4500 7450 [153]"IT IS (A) "H$(C) 7460 [153]"" 7470 [129] I[178]1 [164] [195](F$(C)) 7480 [139] G$(I)[178]" "[176]G$(I)[178]"'"[176]G$(I)[178]"-" [167] [153] G$(I);:[137] 7500 7490 [153]"(null)"; 7500 [130] I 7510 [153]"" 7520 [153]"ENTER THE 5 CONSONANTS YOU WANT" 7530 [129] I[178]1 [164] 5 7540 [161] S$(I):[139] S$(I)[178]"" [167] 7540 7550 [139]S$(I)[178]"A"[176]S$(I)[178]"E"[176]S$(I)[178]"I"[176]S$(I)[178]"O"[176]S$(I)[178]"U"[167] 7540 7555 [129] J[178]1 [164] 5 7560 [139] S$(J)[178]S$(I) [175] J[179][177]I [167] 7540 7570 [130] J 7580 [153] I"="S$(I)" "; 7590 [130] I 7600 [153]" NOW, ENTER THE 1 VOWEL YOU WANT"" 7610 GET T$:IF T$<>"A"ANDT$<>"E"ANDT$<>"I"ANDT$<>"O"ANDT$<>"U" THEN7610 7620 PRINT"[145][145][145][145]6 ="T$"";:PRINT"" 7630 FOR I=1 TO LEN(F$(C)) 7640 IF S$(1)=G$(I)ORS$(2)=G$(I)ORS$(3)=G$(I)THENPRINT"[129]";:PRINTTAB(I-1);G$(I); 7650 IFS$(4)=G$(I)ORS$(5)=G$(I)ORT$=G$(I)THENPRINT"[129]";:PRINTTAB(I-1);G$(I); 7660 NEXT I 7670 PRINT"";:PRINT"" 7680 PRINT"YOU HAVE 60 SECONDS TO TYPE IN THE ":PRINT H$(C)"." 7690 TI$="000000" 7700 INPUT" [157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]";Q$ 7710 IF Q$=F$(C)ANDTI$<="000060" THEN GOTO 7780 7720 IF Q$<>F$(C) AND TI$<="000060" THEN PRINT"[145]SORRY,THAT'S WRONG. TRY AGAIN[145]" 7730 IF Q$<>F$(C) AND TI$<="000060" THEN FOR I=1 TO 250:NEXT I:GOTO 7700 7740 IFQ$<>F$(C)ANDTI$>"000060"THENPRINT"[145]OUT OF TIME. THE ANSWER WAS" 7750 IFQ$<>F$(C)ANDTI$>"000060"THEN PRINTF$(C):GOTO 7810 7760 IF Q$=F$(C)ANDTI$>"000060"THENPRINT"[145]THAT IS RIGHT, BUT YOU ARE OUT OF "; 7770 IF Q$=F$(C)ANDTI$>"000060"THEN PRINT"TIME.":GOTO 7810 7780 PRINT"[147]" 7790 PRINT"YOU WON THE BONUS ROUND":PRINT"AND THE GREAT "AE$ 7800 GOSUB 6000 7810 FOR I=1 TO 2000:NEXT I 8000 REM *** GOODBYE SECTION *** 8010 PRINT"[147]" 8020 PRINT"DO YOU WANT TO PLAY SPIN THAT WHEEL[146] AGAIN ?" 8030 GET R$:IF R$<>"Y" AND R$<>"N" THEN 8030 8040 IF R$="Y" THEN CLR:RESTORE:RUN 8050 PRINT"[147]" 8060 PRINT"" 8070 FOR I=1 TO 20 8080 PRINT"GOODBY[146]" 8085 FOR J=1 TO 200:NEXT J 8090 POKE 53280,INT(RND(0)*15)+1 8100 POKE 53281,INT(RND(0)*15)+1 8110 PRINT"[144]" 8120 NEXT I 8130 POKE 650,0 8140 PRINT CHR$(142):PRINT CHR$(9) 8150 POKE 53280,14 8160 POKE 53281,6 8170 PRINT"[154]" 8180 PRINT"[147]"; 8190 PRINT 8200 PRINT" **** COMMODORE 64 BASIC V2 ****" 8210 PRINT 8220 PRINT" 64K RAM SYSTEM 38911 BASIC BYTES FREE 8230 [128] 8500 [143] *** PUZZLE DATA *** 8510 [131] "MICKEY MOUSE","FICTIONAL CHARACTER ",6,"HOW NOW BROWN COW",PHRASE,10 8520 [131] "A PENNY SAVED IS A PENNY EARNED",PHRASE,15,"ROY ROGERS",PERSON,6 8530 [131] "A STITCH IN TIME SAVES NINE",PHRASE,13,"ABRAHAM LINCOLN",PERSON,9 8540 [131] "BIRDS OF A FEATHER FLOCK TOGETHER",PHRASE,18,"WALT DISNEY",PERSON,7 8550 [131] "GEORGE WASHINGTON",PERSON,10,"BENJAMIN FRANKLIN",PERSON,11 8560 [131] "DAVY CROCKETT",PERSON,9,"CHRISTOPHER COLUMBUS",PERSON,13 8570 [131] "WONDER WOMAN","FICTIONAL CHARACTER ",7,"ADOLF HITLER",PERSON,7 8580 [131] "RAGGEDY ANN","FICTIONAL CHARACTER ",7,"ASTRONAUT",PERSON,5 8590 [131] "BUGS BUNNY","FICTIONAL CHARACTER ",7,"THE WIZARD OF OZ","TITLE ",8 8600 [131] "SIZZORS AND TAPE",THINGS,9,"SLICK AS A WHISTLE",PHRASE,10 8610 [131] "LORETTA LYNN",PERSON,8,"NEW YORK CITY","PLACE ",8 8620 [131]"YELLOW ROSE OF TEXAS","TITLE ",10,"KENTUCKY FRIED CHICKEN","THING ",14 8630 [131] "YELLOWSTONE NATIONAL PARK","PLACE ",14,"SUMMER OLYMPICS","EVENT ",10 8640 [131] "WINTER OLYMPICS","EVENT ",10,"RISE AND SHINE",PHRASE,7 8650 [131] "KENTUCKY DERBY","EVENT ",10,"WORLD SERIES","EVENT ",7 8660 [131] "SUPER BOWL","EVENT ",6,"RED ROSES FOR A BLUE LADY","TITLE ",12 8670 [131] "WILLY WONKA AND THE CHOCOLATE FACTORY","TITLE ",21 8680 [131] "GEORGE STRAIT",PERSON,7,"WASHINGTON MONUMENT","PLACE ",12 8690 [131] "HOLLYWOOD CALIFORNIA","PLACE ",11,"GOLDEN GATE BRIDGE","PLACE ",10 8700 [131] "JAMES BOWIE",PERSON,5,"HONESTY IS THE BEST POLICY",PHRASE,15 8710 [131]"THE EARLY BIRD GETS THE WORM",PHRASE,16,"ANTIQUE AUTOMOBILE","THING ",7 8720 [131] "PRACTICE WHAT YOU PREACH",PHRASE,13,"SAM HOUSTON",PERSON,6 8730 [131]"DON'T PUT ALL YOUR EGGS IN ONE BASKET",PHRASE,18,"THE ALAMO","PLACE ",4 8740 [131] "THAT'S A HORSE OF A DIFFERENT COLOR",PHRASE,17 8750 [131] "STEPHEN AUSTIN",PERSON,8,"THE SOUND OF MUSIC","TITLE ",9 8760 [131] "SCHOOL BOOKS",THINGS,7,"INDIAN TEPEE","THING ",5 8770 [131] "READING WRITING AND ARITHMETIC",PHRASE,17,"ROCKY","TITLE ",4 8780 [131] "A DECK OF CARDS","THING ",8,"A FISHING POLE","THING",7 8790 [131] "DOLLY PARTON",PERSON,8,"REBA MCENTIRE",PERSON,7 8800 [131] "SHORT CIRCUIT",TITLE,8,"MEXICCN JUMPING BEANS",THINGS,12 8810 [131] "TOM AND JERRY","FICTIONAL CHARACTERS",8,BONANZA,TITLE,4 8820 [131]"THE LONE RANGER","FICTIONAL CHARACTER",8,"THE TEN COMMANDMENTS",TITLE,13 8830 [131] "RAWHIDE",TITLE,4,"RUB A DUB DUB THREE MEN IN A TUB",PHRASE,14 8840 [131] "RUB A DUB DOGGIE",THINGS,7,"WHEEL OF FORTUNE",TITLE,8 8850 [131] "KENNY ROGERS",PERSON,8,"WHITE-TAILED DEER",THING,8 8860 [131] "COTTON-TAIL RABBIT",THING,10,"RING-TAILED RACCOON",THING,10 8870 [131] "LOP-EARED RABBIT",THING,8,"ORIENTAL RUG",THING,6 8880 [131] "HOME SWEET HOME",PHRASE,7,"DESIGNER JEANS",THINGS,8 8890 [131] "COLOR TELEVISION",THING,8,"DON'T SIT UNDER THE APPLE TREE",TITLE,15 8900 [131]"PECOS BILL","FICTIONAL CHARACTER",6,"PAUL BUNYAN","FICTIONAL CHARACTER",6 8910 [131]"TEXAS LONGHORN",THING,9,"NECESSITY IS THE MOTHER OF INVENTION",PHRASE,19 8920 [131] "FAMILY PORTRAIT",THING,9,"CHOCOLATE COVERED",THING,12 8930 [131] "JOHNNY APPLESEED","FICTIONAL CHARACTER",10,"COCKER SPANIAL",THING,8 8940 [131] "CASEY JONES","FICTIONAL CHARACTER",6,"THE BRADY BUNCH",TITLE,10 8950 [131] "BEGINNERS LUCK IS GOOD LUCK",PHRASE,15 8960 [131] "LITTLE HOUSE ON THE PRAIRIE",TITLE,12,"COMMODORE COMPUTER",THING,10 8970 [131] "THE DUKES OF HAZZARD",TITLE,11,"BUTTONS AND BOWS",THINGS,10 8980 [131] "KEEP UP THE GOOD WORK",PHRASE,10,"STRAIGHT AS AN ARROW",PHRASE,11 8990 [131] "MORE TROUBLE THAN IT'S WORTH",PHRASE,15,"WHITE PICKET FENCE",THING,10 9000 [131] "A HELP OR A HINDRANCE",PHRASE,10,"ROCKY MOUNTAINS",PLACE,9 9010 [131] "FINDERS KEEPERS LOOSERS WEEPERS",PHRASE,17,"SMOKY MOUNTAINS",PLACE,9 9020 [131] "CHIP AND DALE","FICTIONAL CHARACTERS",7,"COUNTRY MUSIC",THING,8 9030 [131] "APRIL SHOWERS BRING MAY FLOWERS",PHRASE,19,"GRAND CANYON",PLACE,8 9040 [131] "MID-SUMMER BREEZE",THING,9,"FOOTBALL HELMET",THING,9 9050 [131] "HARD-BOILED EGG",THING,8,"INDOOR-OUTDOOR THERMOMETER",THING,14 9060 [131] "HOT AND COLD FAUCET",THING,10,"MAP OF THE UNITED STATES",THING,12 9070 [131] "WHEN YOU WISH UPON A STAR",TITLE,12,"LIGHTING BUG",THING,8 9080 [131] "KNOWING IS HALF THE BATTLE",PHRASE,15,"MAGAZINE RACK",THING,7 9090 [131] "LONG-STEM ROSES",THINGS,9,"ACTIONS SPEAK LOUDER THAN WORDS",PHRASE,17 9100 [131]"A PICTURE IS WORTH A THOUSAND WORDS",PHRASE,18 9110 [131] "FAITH WITHOUT WORKS IS DEAD",PHRASE,14 50000 [143] *** MUSIC DATA *** 50010 [131] 6,36,46,99,16,101,29,57,9,51,10,84,21,227,30,245,39,1 50020 [131] 6,36,46,99,16,101,29,57,9,51,10,84,21,227,30,245,39,1 50030 [131] 6,36,46,99,16,101,29,57,9,51,10,84,21,227,30,245,39,1 50040 [131] 6,36,46,99,16,101,29,57,9,51,10,84,21,227,30,245,39,1 50050 [131] 6,36,46,99,16,101,29,57,9,51,10,84,21,227,30,245,39,1 50060 [131] 6,36,46,99,16,101,29,57,9,51,10,84,21,227,30,245,39,1 50070 [131] 6,36,46,99,16,101,29,57,9,51,10,84,21,227,30,245,39,1 50080 [131] 6,36,46,99,16,101,29,57,9,51,10,84,21,227,30,245,39,1 50090 [131] 6,36,46,99,16,101,29,57,9,51,10,84,21,227,30,245,39,1 50100 [131] 6,36,46,99,16,101,29,57,9,51,10,84,21,227,30,245,39,1 50110 [131] 6,36,46,99,16,101,29,57,9,51,10,84,21,227,30,245,39,1 50120 [131] 6,36,46,99,16,101,29,57,9,51,10,84,21,227,30,245,39,1 50130 [131] 6,36,46,99,16,101,29,57,9,51,10,84,21,227,30,245,39,1 50140 [131] 6,36,46,99,16,101,29,57,9,51,10,84,21,227,30,245,39,1 50150 [131] 6,36,46,99,16,101,29,57,9,51,10,84,21,227,30,245,39,1 50160 [131] 6,36,46,99,16,101,29,57,9,51,10,84,21,227,30,245,39,1 50170 [131] 6,36,46,99,16,101,29,57,9,51,10,84,21,227,30,245,39,1 50180 [131] 6,36,46,99,16,101,29,57,9,51,10,84,21,227,30,245,39,1 50190 [131] 6,36,46,99,16,101,29,57,9,51,10,84,21,227,30,245,39,1 50200 [131] 6,36,46,99,16,101,29,57,9,51,10,84,21,227,30,245,39,1